home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk UserVolume 4 #7 / Commodore_Disk_User_Vol.4_7_1991_-.d64 / star fdj (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  6.4 KB  |  212 lines
  1. 10 poke53280,14:poke646,14:poke53281,6
  2. 1000 rem******************************
  3. 1010 rem**     full disk jacket     **
  4. 1020 rem**           ****           **
  5. 1030 rem**     use a star lc-10     **
  6. 1040 rem**           ****           **
  7. 1050 rem**  using rom and ram sets  **
  8. 1060 rem**      and subscripts      **
  9. 1070 rem**  prints up to 138 titles **
  10. 1080 rem** modified by cliff kendall**
  11. 1090 rem******************************
  12. 1100 print"[147]   full disk jacket"
  13. 1110 print"  prints up to 138 titles each side"
  14. 1120 print"   make sure drive and printer are both  switched on"
  15. 1130 print"   insert disk and press any key when    ready"
  16. 1140 geta$:ifa$=""goto1140
  17. 1150 :
  18. 1160 ifr=1goto1290
  19. 1170 dimcs( 63,12),f$(300)
  20. 1173 print"***reading new characters"
  21. 1175 open4,4
  22. 1177 print#4,chr$(27)+chr$(58)+chr$(0)+chr$(0)+chr$(0);
  23. 1180 print#4,chr$(27);chr$(38);chr$(0);chr$(33);chr$(95);
  24. 1185 fori=1to12:forch=1to63:readcs(ch,i)
  25. 1190 print#4,chr$(cs(ch,i));
  26. 1195 nextch:nexti
  27. 1200 fori=1to118:h$=h$+chr$(101):next
  28. 1210 fori=1to116:d$=d$+chr$(96):next:rem dashes
  29. 1220 fori=1to96:s$=s$+" ":next:rem spaces
  30. 1230 m1$=chr$(125)+left$(s$,8)+chr$(125)
  31. 1240 p$=m1$+" "+s$+" "+m1$
  32. 1250 m2$=left$(s$,10)+chr$(125)
  33. 1260 q$=m2$+s$+chr$(125)
  34. 1270 c$=left$(s$,33)+chr$(125)+left$(s$,28)+chr$(125)+left$(s$,33)
  35. 1280 :
  36. 1290 print"***reading disk directory"
  37. 1300 x=0:gosub2100:s1=j:rem read directory
  38. 1310 :
  39. 1320 s2=0
  40. 1330 print"   are you processing a flippy (y/n)?"
  41. 1340 geta$:ifa$="n"thengoto1440
  42. 1350 ifa$<>"y"thengoto1340
  43. 1360 print"   turn disk and press any key when      ready"
  44. 1370 geta$:ifa$=""goto1370
  45. 1380 :
  46. 1390 print"***reading second directory"
  47. 1400 x=146:gosub2100:s2=j
  48. 1410 :
  49. 1430 :
  50. 1440 print"***setting printer"
  51. 1450 print#4,chr$(27)+chr$(37)+chr$(48);:rem rom set
  52. 1460 print#4,chr$(27);chr$(33);chr$(20);
  53. 1470 print#4,chr$(27);chr$(65);chr$(6);:rem esc a 6 - 6/72 linefeed
  54. 1490 print#4,chr$(27);chr$(83);chr$(1);:rem esc s 1 - subscript mode
  55. 1500 print#4,chr$(176)+d$+chr$(174)
  56. 1510 print#4,p$:print#4,p$
  57. 1520 print#4,chr$(27)+chr$(65)+chr$(1)+p$
  58. 1530 print#4,chr$(27)+chr$(65)+chr$(5);:
  59. 1540 print#4,chr$(27)+chr$(84)+chr$(27)+chr$(33)+chr$(20)+left$(s$,19);
  60. 1545 print#4,"disk name:- "+left$(f$(0),17);:
  61. 1550 print#4,"          disk id:- "+mid$(f$(0),18,2);:
  62. 1560 print#4,left$(s$,11)+"blocks free:-"+f$(s1);:
  63. 1570 print#4,chr$(27)+chr$(83)+chr$(49)
  64. 1580 print#4,chr$(27)+chr$(65)+chr$(6)+p$
  65. 1590 print#4,p$
  66. 1600 print#4,m1$+left$(d$,98)+m1$
  67. 1610 print#4,m1$+" "+c$+" "+m1$
  68. 1620 i=0:m=(s1-1)/3
  69. 1630 i=i+1:ifi>mthen1660
  70. 1640 print#4,m1$+"       "+f$(i)+"  "+chr$(125)+" "+f$(m+i);:
  71. 1650 print#4,"  "+chr$(125)+" "+f$(2*m+i)+"        "+m1$:goto1630
  72. 1660 print#4,m1$+" "+c$+" "+m1$:i=i+1:ifi<40then1660
  73. 1670 print#4,chr$(173)+d$+chr$(189)
  74. 1680 :
  75. 1690 ifs2<>0goto1750
  76. 1700 i=0
  77. 1710 print#4,q$:i=i+1:ifi<46then1710
  78. 1720 print#4,left$(s$,10)+chr$(173)+left$(d$,96)+chr$(189)
  79. 1730 goto1990
  80. 1740 :
  81. 1750 print"***fixing second directory"
  82. 1760 fori=0tos2-146:f$(i)="":fork=0tolen(f$(i+146))-1
  83. 1770 f$(i)=f$(i)+mid$(f$(i+146),len(f$(i+146))-k,1):nextk:nexti
  84. 1780 j=s2-146:s2=j:m=(s2-1)/3
  85. 1790 print"***resetting printer"
  86. 1800 print#4,chr$(27)+chr$(37)+chr$(49);:i=0:rem ram set
  87. 1810 print#4,m2$+c$+chr$(125):i=i+1:ifi<38-mthen1810
  88. 1820 ifm=0then1860
  89. 1830 print#4,m2$+"        "+f$(2*m+38-i)+chr$(125)+"  ";:
  90. 1840 print#4,f$(m+38-i)+" "+chr$(125)+" "+f$(38-i)+"       "+chr$(125)
  91. 1850 i=i+1:ifi<38goto1830
  92. 1860 print#4,m2$+c$+chr$(125)
  93. 1870 print#4,m2$+left$(d$,96)+chr$(125)
  94. 1880 print#4,q$:print#4,q$
  95. 1890 print#4,chr$(27)+chr$(65)+chr$(1)+q$
  96. 1900 print#4,chr$(27)+chr$(65)+chr$(5);:
  97. 1910 print#4,left$(s$,17)+chr$(27)+chr$(84);:
  98. 1920 print#4,f$(s2)+"-:eerf skcolb"+left$(s$,11);:
  99. 1930 print#4,mid$(f$(0),4,2)+" -:di ksid"+left$(s$,11);:
  100. 1940 print#4,right$(f$(0),17)+" -:eman ksid"+chr$(27)+chr$(83)+chr$(1)
  101. 1950 print#4,chr$(27)+chr$(65)+chr$(6)+q$
  102. 1960 print#4,q$
  103. 1970 print#4,left$(s$,10)+chr$(173)+left$(d$,96)+chr$(189)
  104. 1980 :
  105. 1990 print"   process another disk (y/n)?"
  106. 2000 geta$:ifa$="y"thenr=1:goto1100
  107. 2010 ifa$<>"n"goto2000
  108. 2020 print#4,chr$(27);chr$(84);chr$(27);chr$(64):close4:end
  109. 2025 :
  110. 2090 :
  111. 2100 f=x
  112. 2110 open15,8,15,"i0":input#15,en$:close15:ifen$<>"00"thenj=0:return
  113. 2120 open8,8,0,"$0:*"
  114. 2130 get#8,a$,a$
  115. 2140 get#8,a$,a$,a$,b$
  116. 2150 ifstthen2240
  117. 2160 l$=str$(asc(a$+chr$(0))+256*asc(b$+chr$(0))):si$=l$
  118. 2170 get#8,a$:ifa$=""then2220
  119. 2180 ifa$=chr$(34)then2170
  120. 2190 a$=chr$(asc(a$)and127)
  121. 2200 ifasc(a$)>95orasc(a$)<32thena$=chr$(42):rem * if not printable
  122. 2210 l$=l$+a$:goto2170
  123. 2220 iff=xthenl$=right$(l$,len(l$)-len(si$)-1)
  124. 2230 f$(f)=left$(l$,25):f=f+1:goto2140
  125. 2240 close8
  126. 2250 :
  127. 2260 print"   do you want to delete any filenames     (y/n)?"
  128. 2270 geta$:ifa$="n"thenj=f-1:goto2340
  129. 2280 ifa$<>"y"goto2270
  130. 2290 print"":j=x+1:fori=x+1tof-2
  131. 2300 printf$(i)"   d or cr?"
  132. 2310 geta$:ifa$=""then2310
  133. 2320 ifa$<>"d"thenf$(j)=f$(i):j=j+1
  134. 2330 next
  135. 2340 n=int((j-x-1)/3):if(j-x-1)=3*ngoto2380
  136. 2350 f$(j)=left$(s$,25):j=j+1:if(j-x-1)=3*(n+1)goto2380
  137. 2360 k=j:ford=2*n+2to(j-x-1):f$(k)=f$(k-1):k=k-1:nextd
  138. 2370 f$(k)=left$(s$,25):j=j+1
  139. 2380 f$(j)=left$(si$+"   ",4):return
  140. 2390 :
  141. 3120 data 11,0,0,0,0,0,79,0,0,0,0,0
  142. 3130 data 11,0,0,0,0,3,0,3,0,0,0,0
  143. 3140 data 11,0,20,0,127,0,20,0,127,0,20,0
  144. 3150 data 11,0,16,42,0,42,85,42,0,42,16,0
  145. 3160 data 11,0,96,1,98,4,8,16,35,64,3,0
  146. 3170 data 11,0,8,80,32,0,82,5,72,5,50,0
  147. 3180 data 11,0,0,0,0,3,0,5,0,0,0,0
  148. 3190 data 11,0,0,0,0,65,34,28,0,0,0,0
  149. 3200 data 11,0,0,0,0,28,34,65,0,0,0,0
  150. 3210 data 11,0,0,34,20,8,119,8,20,34,0,0
  151. 3220 data 11,0,8,0,8,0,62,0,8,0,8,0
  152. 3230 data 139,0,0,0,0,112,0,176,0,0,0,0
  153. 3240 data 11,0,8,0,8,0,8,0,8,0,8,0
  154. 3250 data 11,0,0,0,0,96,0,96,0,0,0,0
  155. 3260 data 11,0,0,1,2,4,8,16,32,64,0,0
  156. 3270 data 11,0,28,34,65,0,65,0,65,34,28,0
  157. 3280 data 11,0,0,0,64,0,127,0,66,0,0,0
  158. 3290 data 11,0,70,1,72,1,80,1,96,1,66,00
  159. 3300 data 11,0,49,0,75,0,69,0,65,0,33,00
  160. 3310 data 11,0,16,0,127,0,17,2,20,8,16,0
  161. 3320 data 11,57,0,69,0,69,0,69,0,39,04,0
  162. 3330 data 11,0,48,72,0,72,1,74,4,72,48,0
  163. 3340 data 11,0,1,2,5,8,17,32,65,0,1,0
  164. 3350 data 11,0,54,73,0,73,0,73,0,73,54,0
  165. 3360 data 11,0,6,9,16,41,64,9,0,9,6,0
  166. 3370 data 11,0,0,0,0,108,0,108,0,0,0,0
  167. 3380 data 139,0,0,0,0,118,0,182,0,0,0,0
  168. 3390 data 11,0,0,65,0,34,0,20,0,8,0,0
  169. 3400 data 11,0,20,0,20,0,20,0,20,0,20,0
  170. 3410 data 11,0,0,8,0,20,0,34,0,65,0,0
  171. 3420 data 11,0,6,1,8,1,80,1,0,1,2,0
  172. 3430 data 11,0,94,0,85,0,85,8,65,0,62,0
  173. 3440 data 11,0,120,4,18,1,16,1,18,4,120,0
  174. 3450 data 11,0,54,8,65,8,65,8,65,62,65,0
  175. 3460 data 11,0,34,65,0,65,0,65,0,65,62,0
  176. 3470 data 11,0,28,34,65,0,65,0,65,62,65,0
  177. 3480 data 11,0,65,0,73,0,73,0,73,0,127,0
  178. 3490 data 11,0,1,0,9,0,9,0,9,0,127,0
  179. 3500 data 11,0,56,65,8,65,8,65,0,65,62,0
  180. 3510 data 11,0,127,0,8,0,8,0,8,0,127,0
  181. 3520 data 11,0,0,0,65,0,127,0,65,0,0,0
  182. 3530 data 11,0,1,0,63,64,1,64,1,64,48,0
  183. 3540 data 11,0,65,0,34,0,20,0,8,0,127,0
  184. 3550 data 11,0,64,0,64,0,64,0,64,0,127,0
  185. 3560 data 11,0,127,0,2,4,8,4,2,0,127,0
  186. 3570 data 11,0,127,0,32,16,8,4,2,0,127,0
  187. 3580 data 11,0,62,65,0,65,0,65,0,65,62,0
  188. 3590 data 11,0,6,0,9,0,9,0,9,0,127,0
  189. 3600 data 11,0,62,65,32,81,0,65,0,65,62,0
  190. 3610 data 11,0,70,0,41,0,25,0,9,0,127,0
  191. 3620 data 11,0,50,73,0,73,0,73,0,73,38,0
  192. 3630 data 11,0,1,0,1,0,127,0,1,0,1,0
  193. 3640 data 11,0,63,64,0,64,0,64,0,64,63,0
  194. 3650 data 11,0,7,8,16,32,64,32,16,8,7,0
  195. 3660 data 11,0,63,64,32,16,12,16,32,64,63,0
  196. 3670 data 11,0,0,65,34,20,8,20,34,65,0,0
  197. 3680 data 11,0,1,2,4,8,112,8,4,2,1,0
  198. 3690 data 11,0,0,65,2,69,8,81,32,65,0,0
  199. 3700 data 11,0,0,0,65,0,65,0,127,0,0,0
  200. 3710 data 11,0,66,1,64,1,72,1,126,0,72,0
  201. 3720 data 11,0,0,0,127,0,65,0,65,0,0,0
  202. 3730 data 11,0,0,0,4,2,125,2,4,0,0,0
  203. 3740 data 11,0,8,0,8,0,8,65,42,20,8,0
  204. 3750 data 11,0,34,0,20,34,73,0,65,34,28,0
  205. 3760 data 11,0,8,0,8,0,120,0,0,0,0,0
  206. 3770 data 11,0,0,0,0,0,120,0,8,0,8,0
  207. 3780 data 11,0,8,0,8,0,15,0,0,0,0,0
  208. 3790 data 11,0,0,0,0,0,15,0,8,0,8,0
  209. 3800 data 11,0,8,0,8,0,8,0,8,0,8,0
  210. 3810 data 11,0,0,0,0,0,127,0,0,0,0,0
  211. 3820 data -
  212.